home *** CD-ROM | disk | FTP | other *** search
/ PC Electronics Plus 3 / PC Electronics Plus 3.iso / subdwg / lsp / iuni.lsp < prev    next >
Lisp/Scheme  |  1995-03-24  |  1KB  |  37 lines
  1. ;*******************************************************************
  2. :* Comando : iuni
  3. ;* Comentarios : esta funcion se usa para insertar simbolos
  4. ;* unilineales en una forma mas natural que con el comando insert.
  5. ;* Se usa basicamente para los bloques de simbolos
  6. ;*******************************************************************
  7. ;
  8. ; Change Log
  9. ;
  10. ; 14/10/94 C.Perigault  Creacion
  11. ;
  12. (defun c:iuni ()
  13.    (setq nombre (getstring "\nNombre del equipo: "))
  14.    (setq path   (getenv "SUBUNI")) 
  15.    ; SUBUNI varible del sistema que posee el path dondo se encuentran 
  16.    ; los dibujos unilineales
  17.    
  18.    ; vemos si el bloque existe en el dibujo
  19.    ; de no ser asi lo buscamos en el disco
  20.    (if (tblsearch "BLOCK" nombre)
  21.      (progn
  22.        (setvar "TEXTEVAL" 1)
  23.        (command "INSERT" nombre pause)
  24.        (setvar "TEXTEVAL" 0)
  25.      ); progn
  26.      ; buscamo el dibujo en el disco
  27.      (if (findfile (strcat path "\\" nombre ".dwg"))
  28.        (progn
  29.      (setvar "TEXTEVAL" 1)
  30.      (command "INSERT" (strcat path "\\" nombre ".dwg") pause 1 1 pause)
  31.      (setvar "TEXTEVAL" 0)
  32.        ); progn
  33.        (princ (strcat "\nEl equipo: " nombre " no se encuentra" ))
  34.     ); if
  35.    ); if
  36. ); defun
  37.